home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 June / 1990-06.d64 / playfields demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  72 lines
  1. 10 rem copyright 1990 compute! publications, inc. - all rights reserved
  2. 20 onagoto70,80
  3. 30 poke53280,6:poke53281,6:print"[147]":poke53269,255:fort=1to100:next:poke53269,0
  4. 40 printtab(11)"[154]loading playfields"
  5. 50 printtab(11)"one moment please..."
  6. 60 a=1:load "playfields.obj",8,1
  7. 70 a=2:load "playsprites",8,1
  8. 80 sys49854,255,255,255,255,15,11,12:sys50564,1
  9. 90 rem grating/bars/flag demo
  10. 100 poke49237,11:poke53280,0:poke53281,0
  11. 110 print"[147]"tab(11)"p l a y f i e l d s"
  12. 120 fort=1to4:printtab(6)"             [154]                ":next
  13. 130 printtab(6)"             [154]                "
  14. 140 printtab(6)"[154]                             "
  15. 150 printtab(6)"[154]                             "
  16. 160 printtab(6)"[154]                             "
  17. 170 printtab(6)"             [154]                "
  18. 180 fort=1to4:printtab(6)"             [154]                ":next
  19. 190 printtab(4)"copyright 1990 compute! pub.,inc."
  20. 200 printtab(11)"all rights reserved"
  21. 210 sys49854,254,255,255,255,15,11,12:sys49940,1:sys49969,2
  22. 220 fort=1to2
  23. 230 sys49643,0:sys49931:sys49643,3:sys49931:next
  24. 240 sys49940,0:sys49969,1
  25. 250 sys49931:sys49643,4:sys49931:sys49643,2
  26. 260 sys49931:sys49643,1:sys49931:sys49643,5
  27. 270 sys49854,253,0,255,255,15,11,12:sys49940,1:sys49969,2
  28. 280 sys49643,4
  29. 290 poke53264,192:sl=164:gosub650:fordl=1to50:next
  30. 300 poke53264,192:sl=21:gosub650:fordl=1to25
  31. 310 poke53264,192:sl=212:gosub650:fordl=1to35
  32. 320 sys49854,253,0,255,255,15,11,12
  33. 330 sys49643,2:printtab(8)"[154]press <space> to continue":sys49791,1
  34. 340 sys49643,2:sys49854,255,255,255,255,15,11,12:sys49940,0:sys49969,1
  35. 350 sys49643,1
  36. 360 rem granite demo
  37. 370 print"":gosub600:sys49643,5:sys49931:sys49643,3:sys49931:sys49643,0
  38. 380 gosub640:sys49940,1:sys49969,2:sys49931:sys49643,4
  39. 390 sys49791,0:poke56321,255
  40. 400 ifpeek(56321)<>255then400
  41. 410 fort=26to25step-1:poke49242,t:next
  42. 420 fort=25to32:poke49242,t:next:fort=32to25step-1:poke49242,t:next
  43. 430 ifpeek(56321)<>239then420
  44. 440 sys49791,1
  45. 450 fort=1to2:sys50564,1:sys49931:gosub600:gosub640:sys49931:sys50564,0
  46. 460 sys49931:gosub600:gosub640:sys49931:next:sys50564,1
  47. 470 sys49931:print"[154]":gosub600:gosub640
  48. 480 sys49643,5:sys50564,0:sys49969,2:sys49643,1
  49. 490 rem animated flag demo
  50. 500 sys49854,255,255,255,255,15,11,12:sys49940,1:sys49969,2
  51. 510 print"[147]"tab(8)"p l a y f i e l d   f l a g"
  52. 520 fort=1to7:printtab(15)"             ":next
  53. 530 fort=1to5:printtab(14)"             ":next
  54. 540 fort=1to8:printtab(13)"             ":next
  55. 550 printtab(12)"press <space>"
  56. 560 sys49931:sys50028
  57. 570 sys49854,253,0,255,255,15,11,12:sys50028:sys49931:sys50028
  58. 580 print"[147]":sys49643,5:sys50621
  59. 590 sys49854,255,255,255,255,15,11,12:sys49643,4:goto500
  60. 600 print"[147]"tab(11)"p l a y f i e l d s"
  61. 610 printtab(8)"the easy way to smoothly"
  62. 620 printtab(5)"animate large graphics areas for"
  63. 630 printtab(8)"professional video effects.":return
  64. 640 printtab(12)"press <space> for":printtab(14)"more examples":return
  65. 650 s=54296:a=15:b=0
  66. 660 poke53248,sl:poke53248+21,255:poke2040,252:poke53248+39,6:gosub710
  67. 670 poke2040,251:poke53248+39,14:gosub710
  68. 680 poke2040,250:poke53248+39,3:gosub710
  69. 690 poke2040,249:poke53248+39,1:poke53248+21,254
  70. 700 poke53248,0:return
  71. 710 pokes,a:poke54296,0:poke54296,15:pokes,b:return
  72.